﻿Public Class Pbusquedapersona


    Private objcliente As Negocio.Ncliente
    Private Sub Pbusquedapersona_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        ' cargargrilla()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncargarpersona.Click
        Ppersona.Show()
    End Sub
    

   

    Private Sub dgdatos_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgdatos.DoubleClick
        If dgdatos.RowCount Then
            Dim i As Integer
            i = dgdatos.CurrentCell.RowIndex
            Pinmueble.Show()
            Me.Hide()
            Pinmueble.txtnomyape.Text = dgdatos.Rows(i).Cells(1).Value
            Pinmueble.txtdni.Text = dgdatos.Rows(i).Cells(3).Value
       


        End If
    End Sub

    Private Sub txtbusqueda_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbusqueda.TextChanged
        If radiopropietario.Checked = True Then
            If radionomyape.Checked = True Then

                Dim oPropietarioNegocios As New Negocio.NPropietario
                dgdatos.DataSource = oPropietarioNegocios.busquedanombre(txtbusqueda.Text)

            Else
                If radiodni.Checked = True Then
                    Dim oPropietarioNegocios As New Negocio.NPropietario
                    dgdatos.DataSource = oPropietarioNegocios.busquedadni(txtbusqueda.Text)
                Else
                    MsgBox("seleccione busqueda por DNI o Nombre y Apellido", MsgBoxStyle.Exclamation, Title:="Inmobiliaria Seoane")
                    radiodni.Focus()
                    Exit Sub
                End If
            End If
        Else
            If radiocliente.Checked = True Then
                If radionomyape.Checked = True Then

                    Dim oPropietarioNegocios As New Negocio.Ncliente
                    dgdatos.DataSource = oPropietarioNegocios.busquedanombre(txtbusqueda.Text)

                Else
                    If radiodni.Checked = True Then
                        Dim oPropietarioNegocios As New Negocio.Ncliente
                        dgdatos.DataSource = oPropietarioNegocios.busquedadni(txtbusqueda.Text)
                    End If
                End If
                    else
                    If radiocomprador.Checked = True Then
                        If radionomyape.Checked = True Then

                        Dim oPropietarioNegocios As New Negocio.NComprador
                            dgdatos.DataSource = oPropietarioNegocios.busquedanombre(txtbusqueda.Text)

                        Else
                            If radiodni.Checked = True Then
                            Dim oPropietarioNegocios As New Negocio.NComprador
                                dgdatos.DataSource = oPropietarioNegocios.busquedadni(txtbusqueda.Text)
                            End If
                        End If
                    Else
                        If radiogarante.Checked = True Then
                            If radionomyape.Checked = True Then

                                Dim oPropietarioNegocios As New Negocio.NPropietario
                                dgdatos.DataSource = oPropietarioNegocios.busquedanombre(txtbusqueda.Text)

                            Else
                                If radiodni.Checked = True Then
                                    Dim oPropietarioNegocios As New Negocio.NPropietario
                                    dgdatos.DataSource = oPropietarioNegocios.busquedadni(txtbusqueda.Text)
                                End If
                            End If

                    End If
                End If
            End If
        End If
                   







    End Sub
End Class